PC Home 48/Fun Clicp Art 5000.iso/r/mbm/00793_SU-RN su.ls

Text File | 1996-05-11 | 7.3 KB | 184 lines

on renseigne txt1, sty1, txt2, sty2, nCurs
  set the textStyle of field "ZI4" to sty1
  set the text of field "ZI4" to txt1
  set the textStyle of field "ZI5" to "plain"
  set the textStyle of field "ZI5" to sty2
  set the text of field "ZI5" to txt2
  curseur(nCurs)
end

on exitFrame
  global gLocLabel
  go(label(gLocLabel))
end

on idle
  global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMaxBoutons, gEtaSpir, gSujet0, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gEtatEtud, gMessDef1, gMessDef2, gMessSty1, gMessSty2, gSprVideo1, gActVideo1, gTraduit, gScopeSu, gPosVideo, gPosDebP, gPosDebS, gPosDebE, gPosFin
  if not (the mouseDown) then
    if (gScopeSu(GetCadence) = 1) and (gScopeSu(GetTime) >= (gPosFin - 3)) then
      gScopeSu(SetTime, gPosDebE + gPosDebS + gPosDebP)
    end if
    set MsCast to the mouseCast
    if MsCast > 0 then
      if not gEtaSpir then
        set gSurvolAct to 0
        repeat with monSpr = g1erSprChr to gMaxBoutons
          if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
            set gSurvolAct to monSpr
            exit repeat
          end if
        end repeat
        if gSurvolAct <> gSurvolPrec then
          if gSurvolAct <> 0 then
            if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
              gBarChron(survol, gSurvolAct, the number of cast "ZI4")
            end if
            if gSurvolAct = g1erSprNav then
              renseigne(getAt(gTraduit, 12), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 1) then
              renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 3), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 2) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 3) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 4), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 4) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 7), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 5) then
              renseigne(getAt(gTraduit, 27), "bold", " ", gMessSty2, 1)
            end if
            if gSurvolAct = (g1erSprNav + 6) then
              renseigne(getAt(gTraduit, 28), "bold", " ", "bold", 1)
            end if
            if (gSurvolAct >= (g1erSprLoc + 4)) and (gSurvolAct <= (g1erSprLoc + 5)) then
              set monAct to word 1 of the name of cast MsCast
              set monEtat to word 2 of the name of cast MsCast
              set monTxt1 to " "
              set monTxt2 to " "
              set monCur to -1
              if monEtat = "0" then
                set monTxt1 to getAt(gTraduit, 36)
                set monTxt2 to gSujet0(Le_Nom)
                set monCur to 7
              else
                if monEtat = "1" then
                  set monTxt1 to getAt(gTraduit, 37)
                  set moncod to gSujet0(Le_NumPar)
                  set monSuj to getAt(gListSuj, moncod)
                  set monTxt2 to monSuj(Le_Nom)
                  set monCur to 7
                else
                  nothing()
                end if
              end if
              renseigne(monTxt1, "bold", monTxt2, "bold italic", monCur)
            end if
            if ((gSurvolAct >= g1erSprLoc) and (gSurvolAct <= (g1erSprLoc + 3))) or ((gSurvolAct >= (g1erSprLoc + 6)) and (gSurvolAct <= (g1erSprLoc + 9))) then
              set monAct to char 3 to 4 of word 1 of the name of cast MsCast
              set monTxt1 to " "
              set monTxt2 to " "
              set monCur to 1
              if (monAct = "SU") or (monAct = "CO") or (monAct = "HI") or (monAct = "EN") then
                if gEtudAct = monAct then
                  set monTxt1 to getAt(gTraduit, 40)
                  set monCur to 7
                else
                  set monTxt1 to getAt(gTraduit, 41)
                end if
                if monAct = "SU" then
                  set monTxt2 to getAt(gTraduit, 32)
                end if
                if monAct = "CO" then
                  set monTxt2 to getAt(gTraduit, 33)
                end if
                if monAct = "HI" then
                  set monTxt2 to getAt(gTraduit, 34)
                  set monCur to 7
                end if
                if monAct = "EN" then
                  set monTxt2 to getAt(gTraduit, 35)
                end if
              else
                if char 1 of gEtatEtud = char 1 of monAct then
                  set monTxt1 to getAt(gTraduit, 42)
                  set monCur to 7
                else
                  if gEtatEtud = " " then
                    set monTxt1 to gMessDef1
                  else
                    set monTxt1 to getAt(gTraduit, 43)
                  end if
                end if
                if char 1 of monAct = "B" then
                  set monTxt2 to getAt(gTraduit, 47)
                  set monCur to 7
                end if
                if char 1 of monAct = "C" then
                  set monTxt2 to getAt(gTraduit, 45)
                  set monCur to 7
                end if
                if char 1 of monAct = "T" then
                  set monTxt2 to getAt(gTraduit, 44)
                end if
                if char 1 of monAct = "S" then
                  set monTxt2 to getAt(gTraduit, 46)
                  set monCur to 7
                end if
              end if
              renseigne(monTxt1, "bold", monTxt2, "bold", monCur)
            end if
            if (gSurvolAct >= (g1erSprLoc + 10)) and (gSurvolAct <= (g1erSprLoc + 12)) then
              set monTxt1 to " "
              set monTxt2 to " "
              set monCur to 1
              set nomBt to word 1 of the name of cast MsCast
              if nomBt = "BTPEJC" then
                set monTxt1 to getAt(gTraduit, 48)
                set monTxt2 to " "
              end if
              if nomBt = "BTPBOU" then
                set monTxt1 to gMessDef1
                set monTxt2 to getAt(gTraduit, 49)
              end if
              if nomBt = "BTPPOS" then
                set monTxt1 to gMessDef1
                set monTxt2 to getAt(gTraduit, 50)
              end if
              if nomBt = "BTGMOL" then
                set monTxt1 to gMessDef1
                set monTxt2 to getAt(gTraduit, 51)
                set monCur to 8
              end if
              renseigne(monTxt1, "bold", monTxt2, "bold", monCur)
            end if
          else
            set monEpok to gSujet0(Le_Epoque)
            gBarChron(fleche, 0, monEpok, 2)
            gBarChron(fleche, 1, monEpok, 0)
            renseigne(gMessDef1, gMessSty1, gMessDef2, gMessSty2, -1)
          end if
          set gSurvolPrec to gSurvolAct
        end if
      else
        if (MsCast <> 0) and (MsCast <> -1) then
          if the number of words in the name of cast MsCast = 2 then
            if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
              curseur(1)
            else
              curseur(-1)
            end if
          else
            curseur(-1)
          end if
        else
          curseur(-1)
        end if
      end if
    end if
  end if
end